home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr46
/
tpfort18.zip
/
FSAMPLE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-31
|
857b
|
37 lines
{$N+}
unit Fsample;
{ This unit contains the dummy Pascal routines corresponding to the routines
in FSAMPLE.FOR
}
interface
uses FortLink;
procedure Eval(Fn:extval;
var N:longint;
var X:realarray;
var Value:double);
{ Evaluates a double-valued function with arguments N and an array X of length
N, and returns the answer in Value }
function Cube(var X:double):double;
{ Cubes its argument }
const
Eval_Num = 1; { These numbers are the positions of EVAL and CUBE in }
Cube_Num = 2; { the Fortran call to CALLTP }
implementation
procedure Eval;
begin
CallFort(Eval_Num); { This is a procedure, so it uses CallFort }
end;
function Cube;
begin
FDouble(Cube_Num); { This is a function:double, so it uses FDouble }
end;
end.